object MainForm: TMainForm Left = 197 Top = 123 Width = 435 Height = 300 ActiveControl = SpeedPanel Caption = 'My Project 2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Menu = LogoAppMenu OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object SpeedPanel: TPanel Left = 0 Top = 0 Width = 427 Height = 30 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 0 object OpenBtn: TSpeedButton Left = 10 Top = 3 Width = 25 Height = 25 Hint = 'Open' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300 7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33 3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7 B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333 338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033 338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF 8888888333333330000033333333333333388888333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 OnClick = FileOpen end object SaveBtn: TSpeedButton Left = 34 Top = 3 Width = 25 Height = 25 Hint = 'Save' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333 333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330 CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC CCCC033333388888888888888F333330C6000000006C03333338888888888888 8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333 333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330 C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000 0000833333388888888888888333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 OnClick = FileSave end object ExitBtn: TSpeedButton Left = 98 Top = 3 Width = 25 Height = 25 Hint = 'Exit' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777 777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333 33888888888888877F7F788888888888888F333FF88844444400888FFF444444 88888888888333888883333334D5007FFF433333333338F888F3338F33333333 345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8 78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F 3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333 3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333 345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8 F8FFFF8F33333333344444444443333333333888888888833333333333333333 3333333333333333FFFFFF333333333333300000033333333333333888888F33 333333333330AAAA0333333333333338FFFF8F33333333333330000003333333 33333338888883333333} NumGlyphs = 2 OnClick = FileExit end object SendBtn: TSpeedButton Left = 66 Top = 3 Width = 25 Height = 25 Hint = 'Send' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3300000000000003333333FFFFFFFFFFFFF33333388888888888880333333888 8888888888F3300008B7B7B7B7B7B803388888F333333333F8F33333380B7B7B 7B7B080333FFF88F333F333F88F3300008B0B7B0B7B0B80338888838F3F8F3F8 38F3333338FB0B0B0B0B780333FFF8338F838F8338F3300008B7B0B7B0B7B803 38888833F83338F338F3333338FB0B7B7B0B780333FFF83F8333338F38F33000 08B0B7B7B7B0B803388888F833333338F8F33333380BFBFBFBFB080333333883 3333333388F33333388888888888883333333888888888888833333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 OnClick = FileSend end end object StatusBar: TStatusBar Left = 0 Top = 233 Width = 427 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = <> ParentFont = False SimplePanel = True end object RichEdit1: TRichEdit Left = 0 Top = 30 Width = 427 Height = 203 Align = alClient TabOrder = 2 end object LogoAppMenu: TMainMenu Left = 335 Top = 30 object FileMenu: TMenuItem Caption = '&File' object FileNewItem: TMenuItem Caption = '&New' Hint = 'Create a new file' OnClick = FileNew end object FileOpenItem: TMenuItem Caption = '&Open...' Hint = 'Open a file' OnClick = FileOpen end object FileSaveItem: TMenuItem Caption = '&Save' Hint = 'Save current file' OnClick = FileSave end object FileSaveAsItem: TMenuItem Caption = 'Save &As...' Hint = 'Save current file with different name' OnClick = FileSaveAs end object N2: TMenuItem Caption = '-' end object FileSendItem: TMenuItem Caption = 'Sen&d...' Hint = 'Send current file through electronic mail' OnClick = FileSend end object N1: TMenuItem Caption = '-' end object FileExitItem: TMenuItem Caption = 'E&xit' Hint = 'Exit application' ShortCut = 32856 OnClick = FileExit end end object Help1: TMenuItem Caption = '&Help' object AboutItem: TMenuItem Caption = '&About...' OnClick = About end end end object OpenDialog: TOpenDialog DefaultExt = 'rtf' Filter = 'All Files (*.*)|*.*' Left = 367 Top = 30 end object SaveDialog: TSaveDialog DefaultExt = 'rtf' Filter = 'All Files (*.*)|*.*' Left = 399 Top = 30 end end